home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Oberon⁄F™ 1.1 / Obx / Mod / Trap (.txt) < prev    next >
Encoding:
Oberon Document  |  1995-08-18  |  1.4 KB  |  42 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Helvetica
  16. Helvetica
  17. Helvetica
  18. MODULE ObxTrap;
  19.     IMPORT Dialog, Views, Controllers;
  20.     VAR global: INTEGER;
  21.     PROCEDURE Do*;
  22.         VAR i: INTEGER; str: Dialog.String; v: Views.View;
  23.     BEGIN
  24.         str := "String";
  25.         global := 13;
  26.         v := Controllers.FocusView();
  27.         i := 777;
  28.         str[i] := "*"    (* index out of range *)
  29.     END Do;
  30. END ObxTrap.
  31. TextControllers.StdCtrlDesc
  32. TextControllers.ControllerDesc
  33. Containers.ControllerDesc
  34. Controllers.ControllerDesc
  35. TextRulers.StdRulerDesc
  36. TextRulers.RulerDesc
  37. TextRulers.StdStyleDesc
  38. TextRulers.StyleDesc
  39. TextRulers.AttributesDesc
  40. Helvetica
  41. Documents.ControllerDesc
  42.